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-SBTTL MEMORY_ROUTINES Macro 


+ 
Macro MEMORY_ROUTINES 
Build action routine vectors for different memory types. 


Voecb00 mEMOR tana * 


om 
zm 
mo 


Inputs: 
MEMTYPES - A list of "NDTS_"’ type codes for this controller. 
LOGERR_RTN - Action routine that determines if an error was 
reported for this controller; if so, it fogs it. 
LOGALL_RTN = Action routine to unconditionally log this 


controller's reg sters. 
ENAB_RTN = Action routine to enable CRD interrupts for this 
memory controller. 


Outputs: 
Additions to LOGERR_ROUTINES, LOGALL_ROUTINES, and ENAB_ROUTINES arrays. 


Note: Each invocation of this macro corresponds to one ‘‘general'' memory type. 
Each element in MEMTYPES List corresponds to one ‘'specific’’ type. 


“MACRO MEMORY_ROUTINES MEMTYPES ,LOGERR_RTN,LOGALL_RTN,ENAB_RTN 


Create arrays to map a set of spec itis type codes to one general memory type. 
Note: Psects MCHKSDATAO and MCHKSDATA1 must be contiguous. 


. IRP MEMTYP ,MEMTYPES ; Repeat for each memory type... 


IF NDF ,MPSWITCH y*eeee ONLY PRIMARY PROCESSOR... 
-PSECT MCHKSDATAO,LONG, WRT 3 Add specif icetype entry to MEMTYP 
LY SECONDARY PROCESSOR... 


SDOOOCOCOOOCOCOCOOOOSOSOOOOOOSOOOOOoOOoOO <~r 
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olf peeeee 

-PSECT YSMPDATAO,LONG,WRT ; Add specific-type gotey to MEMTYP 
-ENDC jeeeee PRIMARY and SECONDARY PROCESSORS 
-BYTE MEMTYP 3 array. 

olf NDF ,MPSWITCH j;eeene ONLY PRIMARY PROCESSOR... 

-PSECT MCHKSDATA1 ; Add sonore): txpe entry to MEMTYP 

LFF peeeee ONLY SECONDARY PROCESSOR... 
-PSECT YSMPDATA1 ; Add general-type oogey to MEMTYP 
-ENDC ;**eee PRIMARY and SECONDARY PROCESSORS 


-BYTE GENERAL_MEMTYP 
EMTYPCNT = MERTYPCNT + 1 
ENERAL_MEMTYP = GENERAL_MEMTYP + 1 
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Now create action routine vectors. 
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09 5 IF NOF ,MPSWITCH p;eeene ONLY PRIMARY PROCESSOR... 
§ -PSECT MCHKSDATA2,LONG,WRT ; LOGERR_ROUTINES ervey: 

$ . peeeee ONLY SECONDARY PROCESSOR... 

10) 8 -PSECT YSMPDATA2,LONG,WRT ; LOGERR_ROUTINES orreny 
5 -ENDC peters PRIMARY and SECONDARY PROCESSORS 
9 -LONG <LOGERR_RTN-.> ; Add self-relative offset to routine. 
66 i NOF ,MPSWITCH pyeeeee ONLY PRIMARY PROCESSOR... 
6 ~PSECT MCHKSDATAS,LONG,WRT ; LOGALL_ROUTINES array: 
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vOo=600 MEMORY _ROUTINES Mac g: sEp=1 984 88: 13:39 USYSLOA. SREIMCHECK «MAR; 1 os (2) 
196 o LFF zeeeee ONLY ore PROCESSOR... 
165 -PSECT YSMPDATA3,LONG,WRT ¢ LOGALL ROUTINES a cers 
8 198 -ENDC peeeee PRIMARY Y and. SEC INDARY PROCESSORS 
1° LONG <LOGALL_RTN-.> ; Add self-relative offset to routine. 
188 NDF ,MPSWITCH peeere ONLY oe PROCESSOR... 
1 9 -PSECT MCHKSDATAG, LONG ,WRT ; ENAB_ Coy etton ay’ 
17 -IFF pesees “ONLY SE CONDAR PROCESSOR... 
0 17 -PSECT YSMPDATA4,LONG, WRT ; ENAB_ROUTINES a rer: 
00 17 -ENDC peeeee “PRIMARY ond SECONDARY PROCESSORS 
B88 1% LONG <ENAB_RTN-.> ; Add self-relative offset to routine. 
000 178 «RESTORE 
000 17 -ENDM MEMORY_ROUTINES 
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8 ¢ ~SBTTL MEMORY CONTROLLOR AND ERROR DEFINITIONS 
: 3; Common error bit definitions. 
0000001 ARCS$V_ELSRF = 28 sERROR LOG SERVICE REQUEST 
8 Bb008 Q MRCSM_ELSRF = *x10000000 sWRITE 5 TO FLEAR FLAG 
00 4444 1 MRCSV_HERIMF = q ;HIGH E:. _« RATE IN MEMORY 
$ 00000 § MRCSM_HERIMF = *x20000000 sWRITE 1 TO CLEAR FLA 
S44 a 3 88 MRCSV_INHBCRD = 0 31 DISABLES CRD INTERRUPT 
4000000 000 : MRCSM_INHBCRD = *x40000000 30 CRD INTERRUPT ENABLE, 1 CRD DISABLE 
0000 § ; MA780-specific error bit definitions (in Array Error Register). 
0000001F 0000 8 MRCSV_INVMAPPTY = 31 s INVALID MAP PARITY ERROR 
80000000 44 i3 MRCSM_INVMAPPTY = *x80000000 sWRITE 1 TO CLEAR THE FLAG 
48 o 3; MS780E-specific error bit definitions. 
00000014 0000 rk MRCSV_SUMMARY = 20 ;ERROR SUMMARY BIT 
Dono boS 0000 44 MRCSM_SUMMARY = *x00100000 3;0R OF ALL ERROR BITS -- READ ONLY 
0000001 0000 45 MRCSV_CTLIPTY = ;PARITY ERROR ON READ DATA FROM 
00080000 0000 46 MRCSM_CTLIPTY = *x00080000 sCONTROLLER 1 TO SBI INTERFACE. 
00000012 0000 47 MRCS$V_CTLOPTY = ;PARITY ERROR ON READ DATA FROM 
00040000 0000 48 MRCSM_CTLOPTY = *x00040000 sCONTROLLER 0 TO SBI INTERFACE. 
0000 49 sFOLLOWING BITS ARE IN REGISTERS C & D 
00000007 0000 50 MRCSV_MSEQPTY = 7 sMICROSEQUENCER PARITY ERROR 
00000080 0000 51 MRCSM_MSEQPTY = *x00000080 3 
00000008 000 25 MRCSV_IFPTY = 8 ;PARITY ERROR ON WRITE DATA FROM 
00000100 0000 53 MRCSM_IFPTY = *x00000100 3SBI INTERFACE TO CONTROLLER. 
00000009 0000 54 MRC$V_CRDERR = 9 ;CORRECTED READ DATA ERROR 
00000200 4 2? MRCS$M_CRDERR = *x00000200 j 
00000384 0000 57 REENABT IME = 60*15 ;REENABLE INTERRUPT ERROR LOGGING 
4 58 sEVERY 1 UTES 
0000003C 000 59 SOMETIME = 60 3SCAN FOR NON-INTERRUPT ERRORS 
4 60 sEVERY 60 SECONDS 
00000003 000 61 CRDINTMAX = ;MAXIMUM NUMBER OF INTERRUPTS A CONT 
0000 66 71S ALLOWED WITHIN REENABTIM 
00000006 0000 63 CRDWATCHMAX = 6 ;MAXIMUM NUMBER OF ERRORS TO BE LOGGED 
8008 re sWITHIN REENABTIME 
000 66 3 INCLUDED SYMBOL DEFINITIONS 
$8 o8 SADPDEF ;DEFINE ADAPTER CONTROL BLOCK SYMBOLS 
bp 8 SEMBDEF <MC,SB,SE> sDEFINE EMB OFFSETS 
0 0 SIPLDEF sPROCESSOR INTERRUPT LEVELS 
00 71 SMCHKDEF sDEFINE RECOVERY BLOCK MASK BITS 
it ie SNDTDE sDEFINE NEXUS DEVICE TYPES 
000 7 SPCBDEF sPROCESS CTL BLOCK 
4 74 SPFNDEF PFN DATA BASE 
00 75 4 :DEFINE PROCESSOR REGISTER NUMBERS 
00 A SPR780DEF sDEFINE 780-SPECIFIC PROCESSOR REGISTERS 
00 7 SPSLDEF sDEFINE PSL 
$ 78 SPTEDEF sPTE SYMBOLS 
79 SSSDEF sDEFINE SYSTEM STATUS VALUES 
0 80 SVADEF sDEF IN PFN PITS 
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~SBTTL MEMORY ACTION ROUTINE ARRAYS 
0000 -PSECT MCHKSDATAO,LONG,WRT 
9 MEMTYP: ; — base of array of memory type 
; codes. 
0000 9 -PSECT MCHKSDATA2,LONG,WRT 
0 96 LOGERR_ROUTINES: ; Define base of array of routines to 
00 9 ; log memories with errors. 
0000 4 33 -PSECT MCHKSDATA3,LONG,WRT 
8 03 LOGALL_ROUTINES: ; Define base of array of routines to 
00 04 i unconditionally log memories. 
0000 $88 98 -PSECT MCHKSDATA4,LONG,WRT 
10 ENAB_ROUTINES: ; Define base of array of routines to 
4 1 ; enable CRD interrupts in memories. 
$000 ig 3; The following macro invocations add elements to the above arrays for each 
0000 14 ; memory type. 
0000 13 3 
0000 
00 0000 17 MEMTYPCNT = 0 
00 0000 18 GENERAL_MEMTYP = 0 
0000 19 
0000 0 MEMORY_ROUTINES = ONSTS MES contro 
0000 1 MEMTYPES=<NDT$_MEMGNI vis, MOcnaL NDTS_MEMI6NI, OND TS: “MEM161>, - 
900 : LOGERR_RTN = LOG_MS780C, 
000 Se “RIN = LOG 
9000 é ENAB_RTN = ENAB »m$780C 
0000 6 MEMORY_ROUTINES - Nore Ph controller. 
0000 7 MEMTYPES=<NDT$_MPMO NDTS. wat oars MPM2 ,NDTS$_. MPM3>, - 
0000 8 LOGERR_RTN = LOG mA?80, 
0000 9 LOGALL-RTN = COA 
9900 30 ENAB_RTN = ENAB omArS 80 
0000 $§ MEMORY_ROUTINES - 3 MS7B0E perery controller. 
0000 3 MEMTYPES=<NDTS_MEM64NIL ,NDTS_MEMO4EIL ,NDTS _MEMO4NIU, - 
0000 4 NDTS~MEM64EIU,NDTS$_ME 
0000 5 NDT STMEMZSGNIL .NDTS_ MEM éeiL., NDTS_MEM2S6NIU, ~ 
0000 6 MEM ook 1U.NOTS_ MEM2561> 
44 7 LOGERR_RTN = LOG_MS780E, - 
000 8 LOGALL-RTN = LOGE 
0000 9 ENAB_RTN = ENAB_MS780E 
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3 43 -SBTTL LOCAL DATA STORAGE 
45; 
44 ; Macro that will define a global name of the form MPS$ if 
00 45 ; MPSWITCH is defined, else EXE$S. It will also define a local name 
99 4g : to be used within this module. 
$0 ‘3 -MACRO GBLDEF NAME 
00 4 . DF ,MPSWITCH ; For secondary processor only code... 
4 50 MPSS'NAME':: 
00 51 . : For MCHECK780... 
$38 26 EXES'NAME':: 
0 ~ENDC 
B60 54 "NAME: : For local use... 
4 22 -ENDM GBLDEF 
seoeg 5 -PSECT MCHKSDATA,QUAD,WRT 
000 62 ; The following symbol is defined for a transfer vectror in SYSLOAVEC 
0000 63 ; This location is NEVER JUMPED TO. It is defined so these counters 
44 rt: ; Can be located using a global symbol in the system map. 
0000 66 GBLDEF MCHK_ERRCNT ;GLOBAL SYMBOL FOR SYSLOAVEC POINTER 
0000 67 GBLDEF GL_CSBITA ;USED TO HOLD COMPLEMENT OF SBITA 
00000000 0000 68 -LO 0 
0004 69 GBLDEF GL_CHIOLD ;TIME OF LAST CACHE ERROR 
00000000 0004 70 . 0 
sit 71 GBLDEF GL_CH20LD ;TIME OF NEXT=TO=LAST CACHE ERROR 
00000000 000 Le; . 0 
000C 73 GBLDEF GL_CPTIMOUT ;TIME OF LAST CP TIMEOUT/SBI ERROR 
00000000 000C 74 -LO 0 
Boi8 75 GBLDEF AB_MEMERR ;ERROR COUNTERS FOR 16 ADAPTERS 
00000020 0010 8 -BCKB 
0000 8056 A GBLDEF GW_REENAB 0 ;REENABLE TIMER 
0059 79 GBLDEF GW_WATCH 3;SCAN MEMORY CONTROLLER TIMER 
0000 0022 80 «WORD 0 
0024 81 GBLDEF GL_CRDCNT ;COUNT OF CORRECTED MEMORY ERRORS 
00000000 0024 +f .LON 0 
0028 83 GBLDEF GL_CHSTATE ;CURRENT STATE OF CACHE 
00200000 0028 84 -LON *x200000 
002C 85 GBLDEF GL_BADTIMOUT ;TIME SINCE LAST BAD MCHK CODE 
00000000 3 ‘ #69 -LONG 0 
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89 .SBTTL MACHINE CHECK ENTRY POINT 
0000 21 -PSECT MCHKSCODE,LONG, WRT 
%6 ; MACHINE CHECK ENTRY POINT - SCB VECTOR POINTS HERE. 
; = 
: IPL *xif = 31 
0 3 .ALIGN LONG A VECTOR MUST HAVE LONGWORD ALIGNMENT 
4 0 GBLDEF MCHK TEITHER EXESMCHK:: OR MPSSMCHK 
01 oD 0 4 : PUSHL #MCHKSM LOG, :MASK WORD FOR PRTCTEST 
30 AE OF 4 PUSHAL MCL_PC+&(SP [PC,PSL POINTER FOR PRTCTEST 
103F af BB 00 404 PUSHR #*MZRO,R1 Re. R3,R4,R5,AP> 
cs 8 mB tl 405 ADDL3 #<9%4>.SP<A :POINT AP TO LOG FRAME ON STACK 
9900 406 TALL INTERRUPTS ARE LOCKED OUT! 
33 0 00 408 MFPR §#PR780$_SBIMT,RO :GET CURRENT CACHE STA TE 
50 50 F3 BF 010 409 ASHL  #-CH$V_REPLG1.RO,RO :POSITION THE CACHE CONTROL BITS 
0° 50 FO 0015 410 INSV RO, #CHSV_REPL 61,- “SAVE THE CURRENT CACHE CONTROL BITS 
0028'CF 04 0018 411 #CH$S CONTROL w SG CHSTA 
33. 0021C000 8F DA 001 41g MTPR = #CH_REPAIR, PPRYBOS- SBIMT i ORCE MISSES AND GROUP 0 REPLACE 
00 41 UT A w SBI TO INVALIDATE CACHE 
7E 04 AC FO 8F 8B 00 414 BICBS #*XFO, mcL _SUMMARY (AP) , -«§p) Get. LOW 4 BITS OF TYPE CODE 
0029 415 CASE (SP)+ sBREAKOUT TYPE CODE 
0029 aig CPTIMEOUT, - CPU TTREOUT/ SBI ERROR CONF IRMATION 
0029 41 CSPARITY,- [CONTROL STORE PARITY ERROR 
0029 418 TBUFPARITY,- i TRANSLATION BUFFER PARITY ERROR 
0029 419 CACHEPARITY,- [CACHE PARITY ER ROR 
0029 420 BADTYPE STHIS CODE DOESN'T EXIST 
0029 421 READSUBST, = [READ DATA SUBSTITUTE (MEM READ ERROR) 
0029 4 ; IBROMCHECK, = [CAN'T GET HERE’’ ERROR FROM INST ROMS 
0029 4 BADTYPE,- 
ae ae 
029 4 : SOOT PARITY, - ;IB-DETECTED TBUF ERROR 
0029 4 BADTYPE 
99 9 428 READSUBST, - :IB-DETECTED MEMORY ERROR 
029 429 CPTIMEOUT. = :IB-DETECTED TIMEOUT OR SBI ERROR CONF 
00 9 430 BADTYPE 
0 29 4 1 CACHEPARITY>, TYPE=8  ; IB-DETECTED CACHE PROBLEM 
4D 4 § BADTYPE: 
33. 0028'CF DA 0040 434 MTPR  W*GL_CHSTATE,#PR780$_SBIMT ;:RE- ENABLE THE CACHE 
FO AC O2 C8 0052 435 ISL SRCHRSR MCK, -4(AP) MASK f R PRICT 
C'CF DD 0056 4 6 PUSHL GL BA TIMOUT IME OF LAST BAD TYPE FAULT 
OO2c'CF 1B 0B DA 4 FPR wPR 80$_TODR,W*GL BADTIMOUT — TIME ai CURRENT FAULT 
002C'CF 8E D1 i. : CMPL = (SP)+ WoL -BADTIMOUT =; COMING TO FAST? 
12 0064 439 ons BNEG DAMPUTAT YES, ABORT 
103F 8F BA $e 441 POPR #*M<RO, Rt »R2,R3,R4,R5,AP> 
00000000'GF 16 6A 443 JSB G*EXESMCHK BUGCHK ;RECOVERY BLOCK ENABLED? 
0 444 BUG. CHECK BADACKCOD” FATAL [BAD MACHINE CHECK CODE 
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PEESUIOY RMBAEY POR GSETPEE SOBER URGE. SRESRABEE HM mans 8" 
~SBTTL TRANSLATION BUFFER PARITY ERRORS 
sewrrnnt ly 


PPP LEE EE ON 


SAAAAAAAOAOAASMIIMNIVIUVIUVIVIVIN ES 
NO 


voe000 TRANS 


33 28'CF DA 
ce BO 


04 AC O1FO BF B3 


2. 


w*GL CHSTATE, #PR780$_SBIMT ;RE~ENABLE CACHE 
MTPR #0,#PRS_TBIA :¢ CLEAR ENTIRE TBUF 
BISL #MCHKSMTMCK,-4(AP) SET MACHINE CHECK CODE FOR PRICTEST 


BNEQ gl ATE BRANCH IF YES, NO nor ate RE SUMING 
BITB NCL. SUMMARY (AP) 7 SEE IF ee yl WAS Mi 
BNEQ FIN ITELY y" RESUM 


7 ,W*RESUMABLE , AMPUTATE T aRANCN IF INST NOT RESUMABLE ABORT 


ee 1 

04 AC : a8 
7E 20 BC 9A 

1F O70D'CF 8E  €E1 


MEW OOONOULS UM "O0 “HK 


BBC SP), 
108: ;THERE IS A LOW PROBABILITY CASE HERE THAT MAY ALLOW THIS 
: CON WE CAN'T - IF A ON FR 


WOMOOODOODIM OOP AOOSSKOMOL LES 


_ 
SOOCCOOOCOCOOOCOOOOOCOOOOSOOOOOOSO rt 


SOOCOCCOCOCSCOOCOOCOOCOOOOOOOOSOOOOOOoOOoO FY 


>>> RESVSSSSSSsRASSSSsssndeane =—2 


T 
[CONTINUE WHEN - LOCAT REA THE 10 PAGE AND 
; SIDE AFFECT WHICH MODIFIES THAT LOCATION, THE INSTRUCTION IS 
8 [NOT RETRYABLE $0 FTWARE OLUTION IS TO IMPLEMEN L T BY ANY 
9 [POTENTIAL REFERENCE TO THE IO PAGE THAT MAY CAUSE A SIDE AFFECT. 
470 cavaat ‘BBS  #IOSAFLAG, FeAG. AMPUTATE ;BRANCH IF INST MAY OF HAD SIDE AFFECT 
53 02 80 47¢ MOVW #EMBSK_MC,R3 ;SET TYPE OF LOG ENTRY 
022E 30 47 BSBW LOGGER ‘WE'RE GOING TO MAKE IT = LOG ERROR 
103F 8F BA 47% POPR #*M<RO,R1,R2,R3,R4,R5,AP> RESTORE REGISTER 
SE 08 CO 475 ADDL # sREMOVE PRICTEST STUFF FROM STACK 
SE «BE OCC 476 ADDL (SP)+,SP [POP HARDWARE LOG FROM STACK 
02 8 477 REI [AND TRY AGAIN 


TRYRESUME : 
BITW #*X1FO,.MCL_SUMMARY(AP) ;1S ERROR ABORT OR TIMEOUT PENDING 
DAMPUTATE : 
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MCHECK780 = MACHINE CHECK EXCEPTION HANDLER FOR 11 16-SEP-1984 00:4 AX/VMS Macro V04- Page 11 
y00e000 ERRORS DETECTED IN INSTRUCTION DECODE RO g-e P- ~}382 82: 18; 38 YOYSLOA. BRET CMECKSSO.MAR: 1 e 
Ag s«479 «SBTTL ERRORS DETECTED IN INSTRUCTION DECODE ROMS 
"3 4 0 “SBTTL CONTROL STORE PARITY ERRORS 
a? 4 3 IBROMCHECK 
Ad 4 PARIT 
33 0028'CF «DA O0AD 484 MT W°GL -CHSTATE -#PR780$ SBIMT -CACHE PROBABLY OK = - of Nase IT 
06 at cs BC 29 AE 485 MOVB a@MCL~PC(AP (AP) ;SAVE OPCODE IN 
C 8 4 $ ampuTATEe Ese #MCHRSM SACK OS tRD) str T Mis SK CODE FOR BRTETEST 
oF 80 7 488 OVW  #EMBSK_MC,R3 :SET TYPE OF LOG ENTRY 
02 A 489 BSBW =: LOG LOG THE ERROR 
O& 30 AC EO 490 BBS #PSLS$V_CURMOD+1 ,MCL _PSL(AB) REFLECTCHK ;BRANCH IF 
: 491 sFAILURE IN USER OR SUPERVISOR MODE 
103F 8F BA o¢ re POPR #2NCRO ARI RZ RS Rs R5,AP> :RESTORE REGS 
00000000'GF 16 00C6 495 JSB G*EXESMCHK BUGCH sRECOVERY BLOCK IN EFFECT? 
O¢ 496 BUG_CHECK MACHINECARCPATAL ‘MACHINE CHECK IN KERNEL OR EXEC MODE 
0D $10 REFLECTCHK: 
50 00 vB 00D 11 MFPR  #PRS$_KSP,RO :GET THE KERNEL MODE STACK POINTER 
70° 2C aC 7D 990 318 MOVQ  MCL_PC(AP) ,-(RO) : INTERRUPT PC,PSL TO KERNEL STACK 
oo? 51 [IT IS NOT NECCESARY TO PROBE KERNEL 
9007 514 :STACK FOR VALIDITY, THE FAILURE WILL 
007 313 ‘BE A KERNEL STACK NOT VALID BUGCHECK 
0007-516 :FROM WITHIN MACHINE CH 
00 DA 0007 517 MTPR _——RO, #PRS_K SREPLACE THE NEW KERNEL STACK POINTER 
103 er BA OODA 518 POPR #*M<RO, Ri SR2, R3,R4,R5,APS RESTORE REGIST ERS 
CO OO0DE 519 ADDL = #8 SP ZCLEAR PRICTST STUFF 
2 BE CO O00E1 520 ADDL (SS POP HARDWARE LOG” FROM STACK 
6E 00000000' GF 9E 0064 521 MOVAB GExEgnc CHECK, (SP) ‘SET UP A PC AND PSL FOR EXCEPTION 
04 AE O4 AE O02 18 EF OOFB 5 : EXTZV #PSL$V_CURMOD,#PSLSS_ CURMOD aie), 4(SP) 
OOF2 5 E E We WERE EXECUTING IN 
04 AE 04 AE 16 9C OOF ; 4 ROTL  #PSLS$V_PRVMOD,4(SP), 4 (sp ST REATE A PSL OF CURRENT TO BE 
OOF 5 ;KERNEL WITH H CORRECT PR PREVIOUS MO DE 
OOF8 526 AS FROM A REST OF PSL 
02 OOF8 528 REI iGET TO EXCEPTION HANDLER 
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MCHECK780 = MACHINE CHECK EXCEPTION HANDLER FOR 11 16-SEP-1984 00:43: AX/VMS Macro V04- Page 1 mCi 
y006500 CACHE PARISY ERROR §-§ P=1984 90:43:38 YOYSLOA. SREIMCHECK -MAR;1 - dé vO 
: ; -SBTTL CACHE PARITY ERROR 
F 4 CACHEPARITY: ZENTER WITH CACHE DISABLED REPLACING 
FC AC. 02 8 F 4 BISL smCHKSH WICK ,=4CAP) [SET MACHINE CHECK TYPE FOR PRICTEST 
1 BC F 44 TSTB 3s @MCL “FORCE DATA INTO GROUP 0 OF BAD CACHE 
33 0021000 BF DA 45 MTPR ac REPAIR 1,#PR780$_SBIMT ;NOW FORC REPLACEMEN 
1 BC 5 01 46 TSTB ance yA FORCE GROUP 1 OF BAD LINE TO G TA 
ze B 08 10a 54 MFPR apr ti 3 Tope (SP) :GET IME-OF-YEAR IN 10MS TICKS 
7E 6E p oB'cr ¢3 01 p 48 SUBL3 tsa) CH20LD,(SP),-(SP) GET TIME SPAN O Last é ERRORS-NOW 
A 8— D1 01 4 CMPL 7 aCH UFARESHOLD TARE THE ERROR ORS | WIDEL SPACED 
, 1A 011 p BGTRU *BRANCH I VES O FORGIVE THE CACHE 
0000007F 8F 24 AC 07 ED 1 CMPZV Scrsy _GOERRS ,#CHSS -SOERRE RCL PARITY (AP) w°B1111111 
11 12 1 é BNEQ 108 :BRANCH IF oti 69002 BAD 
0029'CF CO 8F 126 4 BISB #CH_MISSG1!CH_REPLGO@-8,0°G =CHSTATES | :DISABLE GROUP 1 
0029'CF 120A 6555 BICB ss #CH REPLG 19-8, W°GL CHSTATE+1~: CANNOT FORCE REPLACE IN BOTH 
7 AC ! 90 $ 36 nove 1 ahaa »MCL_SUMMARY+3(AP) ;LOG THAT WE DID IT 
0029'CF 0120 8F As O01 H 38 10$: BISW #CH_MISSGO!CH_REPLG1a-8,W*G -CHSTATES] :DISABLE GROUP 0 
0029'cr 40 BF BA 1 5 BICB #CH"REPLGO@-8;W*GL_CHSTATE+1 ;DON'T FO once REPLACE IN BOTH! 
07 ac. 01 14 60 MOVE #CHCOG DISAB MCL SUMMARY+3(AP) ;LOG THAT WE DID IT 
0008'CF OO04'CF DO 014 61 20$:  MOVL  W*GL_CRIOLD,W°GL CH2OLD ;MAINTAIN THE TIMING HISTORY 
906°C 8E DO 014d 66 movi ‘ses W*GL iui ot ] ‘UNTO THE THIRD GENERATION 
0028" CF DA O15¢ 6 TPR L CHSTATE. #PR7808_ SBIAT jRE-ENABLE T HE CACHE = 
FF26 90631015 64 BRESUM: BRU wave RESU sSEE IF WE CAN CONTINUE FROM” THE ERROR 
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MCHECK780 = MACHINE CHECK EXCEPTION HANDLER FOR 11 16-SEP-1984 00:43: AX/VMS Macro V04é- Page 13 
yOe0000 CP TIMEOUT / SBI ERROR CONFIRMATION g7 SEE 138 90:43:38 PEYSLOA. SREIACHECK 0.MAR;1 . (11) 
} . § -SBTTL CP TIMEOUT / SBI ERROR CONFIRMATION 
15A 8 CPTIMEOUT: 
33 + iat DA 15A MTPR W*GL_CHSTATE ,#PR780$_SBIMT ; ENABLE THE CACHE 
FC AC C8 A BISL  #MCHRSM_MCKIFICHKSM_NEXM,-4(AP) ;SET TYPE FOR PRICTEST 
16 73 ; Add check for read of BRRVR register in UBA. If this meghine check 
1 74 ; is the result of a BRRVR read, then just REI. Someone will either loose 
16 75 ; a character from a terminal, or a device timeout will result. This is 
19 6 ; better than a system crash. 
50 oaneeneds | 0 1 4 VL *10CSGL_ADPLIST,RO ;POINT TO ADP LIST 
9 1 16A 79 5$: BEQ sDONE IF NOTHING LEFT ON LIST 
0000'8F 0& AO Bi 166 0 CMPW ADPSW_ADPTYPE(RO),#ATS_UBA ;1S THIS ADP FOR A UBA? 
1 is 1 1 BNEQ 208 5 OOK AT REST OF eh 
51 0 9) 174 § MOVL #3,R1 i4,06x AT VA'S OF ALL 4 BRRVR REGISTERS 
52 44 A041 09 C1 177 10$: ADOL3 #9, ADPS$L_UBASCB(RO)CR1),R ;CALCULATE ADDRESS OF BRRVR FROM 
17D 4 ;THE SCB VECTOR ADDRESS SAVED IN THE ADP 
17D 5 ; #eee NOTE teee THE PREVIOUS INSTRUCTION ASSUMES THE CURRENTLY USED ING 
17D § 3; SEQUENCE FOR DISPATCHING UBA INTERRUPTS IN THE MODULE INIADP.MAR. ANY 
17D ; CHANGES TO THAT CODE MY AFFECT THIS ROUTINE. THE ASSUMPTIONS ARE THAT THE 
17D 3 3 VIRTUAL ADDRESS OF THE UBA wi) REGISTER IS AT AN OFFSET OF 10. BYTES PAST 
17D ; THE INTERRUPT VECTOR ADDRESS (9 IS ADDED TO THE SCB VECTOR VALUE BECAUSE 
17D 0 ; THE VECTOR HAS BIT 0 SET TO INDICATE HANDLING THE INTERRUPT ON THE INTERRUPT 
17D 91 ; STACK), THAT THE PC OF THE INSTRUCTION aioe BRRVR IS 3 BYTES PAST THE 
170 35 3 INTERRUPT VECTOR ENTRY, AND THAT R4& AND RS HAVE BEEN PUSHED ONTO THE STACK. 
10 AC 62 D1 17D 94 CMPL fog) ACL _WACAPD ;SAME VA AS IN MACHINE CHECK STACK? 
09 is 4 1 95 BNEQ 15 ;BRANCH IF NOT BRRVR REFERENCE 
mm: we & 183 38 SUBL #<9-3>,R2 sELSE BACK UP TO PC OF INST 
186 9 ; IN UB INTERRUPT SERVICE THAT READS BRRVR 
2c AC 52. D1 186 38 CMPL Re MCL_PC CAP) ;DOES IT MATCH PC IN MCHEC ? 
ic #13 018A 59 BEQL 308 [BRANCH IF SO, DEFINITELY CAME FROM 
18C 690 : UB INTERRUPT SERVICE. 
FS 51 F4 18C 601 15$: SOBGEQ R1,10$ ;LOOP THROUGH ALL 4 
50 4 a0 00 18F 6 ¢ 20$: MOVL ADPSL_LINK(RO) ,RO sFOLLOW ADP LIST TO END 
D5 11 1 6 BRB 5$ 
13 ? 4 25%: 
000C ‘CF OD 195 6 5 PUSHL a CPTIMOUT ;WE ONLY KEEP TRACK OF ONE TIMEOUT 
OOOC'CF 18 dB 199 6 3 MFPR #PR7B0$_TODR,W*GL_CPTIMOUT ; UPDATE THAT HISTORY 
000C "CF 3 D1 O19 6 CMPL (SP) +,W™GL_CPTIMOOT ;ARE TIMEOUTS LESS THAN 10 MS APART? 
B 12 1A 219 BNEQ BRESUM ;BRANCH IF NOT TO TRY AND CONTINUE 
FFOF 31 a ot) BRW AMPUTATE sOTHERWISE SOMETHING IS VERY WRONG 
1A 614 ; This machine check was a CPU timeout caused by a read of the BRRVR register 
1A 615 ; in the UBA. Log the error as a machine check, clean up the stack and REI. 
iA $18 ; This ignores the interrupt. 
1A 8 j teeeereee WHAT IS THE ‘REAL’ STATE OF THE UBA AT THIS POINT? teeeeeeee 
53 o1%e 4 ‘a 6 : 30$ nove Seeaee A AS ;LOG THE ERROR AS A MACHINE CHECK 
103F 8F BA OQIA 3 § POPR #*M<RO,R1,R2,R3,R4,R5,AP> ;RESTORE SAVED REGISTERS 
5E F . 1B 6 ADDL #8,SP sCLEAR PRICTEST STUFF FROM STACK 
E ; CO 0185 624 ADDL (SP) SP :CLEAR MACHINE CHECK FRAME FROM STACK 
E C 188 625 ADDL #8,SP ;CLEAR MACHINE CHECK PC,PSL FROM STACK 
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NT DESPATCHER 
PC,PSL 


oow +2 


PAA BO FO OWT ON MMM OOOO WF ONWOC PWM DS & NVNVO OVS DOSNVOOL HH Dim 


—ODOGoo00f&—-"Ooma>, 


Ww" 9 - O99 -OMWwIIOoFYO 


R 
mateo * 


mo-—-womo—0-- Dw 
Oor—O— Frwnw— 


7 90000000" BF 


SOWDWNANE WN OC OONAULS WN OO 


WOODOCocoCoO OOOO NNN 


DPDEAAAAAAAAAAAAAAA AO 


» SBTTL 
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SEP=19 SYSLOA. SRCIMCH Nec 0.MAR;1 (12) 
READ DATA SUBSTITUTE ERROR 
LSB 
W*GL ote -#PR7BOS._ SBIMT ;REENABLE CACHE 
meine “set MACHINE CHECK TYPE FOR PRICTEST 
an) >SET POINTER TO PC,PSL 
EAE [SET HARD MEMORY ERROR TYPE 
1 oy ERO ‘LOG MEMORY ERROR 
ate V en presi IPL Mc PSL (AP) -(SP) ;GET IPL WE WERE AT 
DEC ;ARE WE Af A NON=PAGEABLE PRIORITY? 
SABORT = RECOVERY IS USELES 
act PUTATE oo 3GET VIRTUAL ADD BDRESS OF ERROR 
GL_CURPCB,R4 SCURRENT USER'S PCB ADDRESS 
PCB$L_PHB(R4) RS i CUR RENT USERS PROCESS HEADER ADDRESS 
G*MMGSSVAPTECHK 3 TURN VA INTO VA OF 
(R3),R GET THE PTE WHICH MAPe THE BAD PAGE 
‘BRANCH IF PAGE VALID 
RDSNONRES SELSE FATAL ERROR 


rite pa eae RO,BAMPUTATE ;BR IF PAGE IS PFN-MAPPED 


PTES 
#PTesy ad Mg Ate PFN,RO, +t s ISOLATE PAGE FRAME NUMBER IN PTE 


RO. snags (_MAXPFR S THERE PEN DATA BASE FOR PAG? 
BAMP ATE ‘Ae IF NO PFN DATA BASE FOR PAGE 
G*PEN USAB -(SP [PFN TYPE ARRAY ADDRESS *eeeeeeee 
#PENSM "SRDPAG;a(SP)*CRO}’ MARK PAGE BAD aeeenee 

R1 ;CLEAR MODIFY BIT PROPAGATOR 

#PTESV MODIFY, (R3),10$ :TEST cS CLEAR) MODIFY BIT IN PTE 
#PENSM-M R1 [SET MODIFY PROPAGATOR 

G*PENS $18. Otare*s -(SP) TADDRESS OF PFN STATE ARRAY *eeeee 
R1,a(SP)FLROJ SPROPAGATE MODIFY BIT TO PFN DATABASE ** 
PFNSM_MODIFY EQ 128 

15$ :PAGE NOT MODIFIED = HE'S OK 

AMPUTA 

riirO. ACL SUMMARY(AP) ;WAS ERROR FAULT OR ABORT? 

BAMPUTAT DON'T TRY ANY REPAIRS 

#8, MCL_ SUMMARY (AP) :1S ERROR 1B ERROR FAULT 

20 ; ANCH IF YES, IB ERRORS RESUME 
amc gPCCAP) -(SP) “GET OPCODE FOR RESTARTABILITY CHECK 
(SP) ¥,W°RESUMABLE ,BAMPUTATE ;BRANCH IF INST NOT RESUMABLE 

Ge PENSAW REFCNT,-(SP) ;ADDRESS OF PFN REFCNT ARRAY teeee 
a(SP)+CROJ,41 CHECK FOR 1/0 IN PROGRESS, ETC. *** 
BA MPUTATE | :1F $0 DON T TRY ANYTHING FANCY 
G“PFNSAB -(SP) ADDRESS OF PFN TYPE ARRAY tees 


#PENSV APRGTYP. WPENSS pact BSP) stROI sPENSCe SYSTEM ; 008 
sCHECK FOR SYSTEM OR GLOBAL PAGE 


PFNSC_SYSTEM EQ 1 CHECK TYPE OF PAGE 
PFNSC_PROCESS EQ 0 
BAMPUTATE ;BRANCH IF GLOBAL PAGE 


FUTURE WE MAY RECOVER FROM HARD ECC ERRORS ON GLOBAL PAGES 
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MCHECK780 MACHINE CHECK EXC PTION HANDLER FOR 11 16S po] +6 AX/VMS Macro V04- Page 
1006500 READ DATA SUBSTITUTE EAR Breet e8e Be starse LONSVOS Becta VOR Ol mary 2% (1S, 
i ; AS WELL, BUT FOR NOW WE ABORT THE IMAGE. 
52S $4 30$:  -TSTL £2. ;CHECK THE VIRTUAL ADDRESS 
0B (14 5 BGTR {BRANCH IF PAGE IS PROCESS PRIVATE 
54 09900000 ‘GF 9 $9 96 MOVAB CT RAGSAL SYSPCB,R4 SYSTEM PAGES ane KEPT TRACK OF 
6C AG OD Q 9 MOVL pcast PH PHB(R4) RS eR WORKING SET LIST IN THE SYSTEM PCB 
0063 =F OC 7 98 408: BBCC were V_VALID,(R3),50$ CLEAR VALID BIT FROM PTE 
78 699 50$: INVALID R2 SINVALIDATE TRANSLATION BUFFER OF VA 
7E  00000000'GF D9 7 0 MOVL  G*PFENSAW_REFCNT,-(SP) ADDRESS OF PFN REFCNT ARRAY *exee 
9E40 8 ? 1 DECU a<sP) )+CROJ ;REDUCE REFERENCE COUNT TO 0 seeee 
49000000" ig 7 j JSB G“MMGSREF CNTNEG : 
7E  00000000'GF 0 p , 4 60$:  MOVL GePr NSAx USLX, =(SP) TADDRESS OF PFN WSLX ARRAY see 
% «7 6 MOVZWL <a(SP)+ RDI RID, :GET WORKING-SET LIST INDEX FOR PAGE ** 
“a F LONG _OPCODE=MOVi,- 
94 108 IMAGE=SYSLOA780.EXE 
00000000'GF 16 0246 709 JSB G°NNGSDELUSLEX ;DELETE IT FROM THE WORKING SET ITS IN 
00000000'GF 16 O2AC 710 4SB G*MMGS$DELCONP [DELETE PAGE FROM PAGE TABLE 
9A 0282 711 MOVZBL #PFNSC BAOPAGLST. R2 :SET UP LIST TO PUT PAGE ON 
00000000'GF 16 85 z1@ JSB G*MMGSINSPENT [PUT PAGE ONTO BAD PAGE LIST 
288 714 ; AT THIS POINT, THE PTE FOR THE BAD PAGE CONTAINS ITS MASS STORAGE 
BB 715 : ADDRESS. THIS WILL CAUSE A FRESH COPY OF THE PAGE TO BE FETCHED WHEN 
BB 216 : THE PROCESS IS RESUMED. 
FDDA 31 0 BB 718 BRW RESUME ;LOG MACHINE CHECK AND RESUME PROCESS 
0 BE ? 0 RDSNONRES : : 
103F 8F BA O2BE 7 é POPR #°m<RO, Rt Re. R3,R4,R5,A 
00000000'GF 16 0 ce 7 JSB G*EXES UGCHK P RECOVERY BLOCK IN EFFECT? 
; cB t 4 BUG_CHECK RDENOMRES. FATAL TREAD DATA SUBSTITUTE PAGE NONRESIDENT 
02CC 726 .DSABL LSB 
02CC 727 
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MCHECK780 = MACHINE CHECK EXCEPTION HANDLER FOR 11 16-SEP-1984 00:43:5 AX/VMS Macro V04- Pa 17 mC 
V006500 INTERFACE FROM MACHINE CHECK HANDLER TO 5=SEP=1984 0:4 :38 LOYSLOA. SREIMCHECKTS0.MAR: 1 9 43) vd 
cc 7 9 me -SBTTL INTERFACE FROM MACHINE CHECK HANDLER TO ERROR LOGGER 
3 ; § ; LOGGER = Routine to log Machine Check interrupts and aborts 
eC 4 > INPUTS: 
CC é : R3 = Error Log type 
CC 737 ; AP = Pointer to Machine Check error log frame 
CC f : : -4(AP) = MASK FOR PRICTEST 
c¢ £39 -B(AP) = PC,PSL POINTER FOR PRTICTEST 
eC rip ; OUTPUTS: 
0 ce. es 8 Entry made in error log conditional on PRICTEST 
CC 34744 RO-R5 destroyed 
gett fap I 
0 CC i$ LOGGER: 
54 08 6C C1 CC 748 ADDL3 MCL_COUNT(AP) ,#<2"4>,R4 ;GET SIZE OF ENTRY IN BYTES 
55 04 AC SE 0200 749 MOVAB MCL ~SUMMARY(AP) ,RS [GET ADDRESS OF ENTRY 
51 FB AC 7D 0204 750 MOVQ -8(KP),R1 :GET MASK AND PC POINTER FOR PRICTEST 
00000000'GF 16 02D8 i3¢ JSB G*EXESMCHK_TEST TARE WE TO LOG THIS ERROR? 
06 50 €8 ODE 75 BLBS :NO, RECOVERY BLOCK IGNORES IT 
00000000'GF D6 0261 755 INCL  G*EXESGL_MCHKERRS ‘KEEP COUNT OF MACHINE CHECKS 
02E7 136 10S: ‘FALL THROUGH TO “LOGIT” 
OSE? 88 sas 
0 e7 39 : LOGIT = INTERFACE TO SYSTEM ERROR LOG 
0 E? 761 : INPUTS: 
02E7 188 : R1 = PC,PSL POINTER FOR PRTCTEST 
0267 764: Re = MASK FOR PRICTEST 
O2E7 765: R3 = ERROR LOG TYPE 
0 E?7 766: R4 = SIZE OF LOG ENTRY IN BYTES 
E?7 767: RS = ADDRESS OF LOG ENTRY 
2 E 168 ; (SP) = RETURN ADDRESS 
0 a4 776 , .ENABL LSB 
0 £7 if LOGIT: 
50 30 oD Ee? 77 MFPR  #PR780$_SBIFS,RO :GET SBI FAULT/STATUS REGISTER 
0050 19 € EA 77% BBCC #SBIFS$V_NEF,RO,10$ TCLEAR NESTED ERROR FLAG 
30 50 ODA EE 775 10$:  MTPR RO,#PR780$_SBIFS SWRITE IT BACK TO CLEAR SILO LOCK 
F 106 SAND FAULT LATCH 
50 3% «CO |) oF MFPR © #PR780$_ SBIER RO “GET SBI ERROR REG 
50 70C0 BF A F4 078 BISW #SBIERSA_IBTO!SBIERSM_IBRDS'SBIERSM CPTO'SBIERSM_RDS!- 
F977 SBIERSM ERD RO :SET BITS FOR ERRORS WE'RE HANDLING 
34 50 ODA r9 f 0 MTPR RO, #PR780$_SBIER :WRITE IT BACK TO CLEAR LATCHES 
00000000'GF 1 FC 783 JSB GPEXESMCHK. TEST yARE WE TO LOG THIS ERROR? 
2150 € 0 , 4 BLBS  RO,20$ [NO, RECOVERY BLOCK IGNORES IT 
f 8 MCHKSGL_LOG: : 
51 54 10 C1 3 f ; ADDL3 #EMBSB_MC_SUMCOD,R4,R1 ;ADD SPACE FOR HEADER FOR BUFFER SIZE 
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N HANDLER FOR 11 16-SEP-1984 00:43: AX/VMS Macro V04- Page 1 
NECK HANDLER TO SoSEPoiope SustOs39 LevelOa. cacaachecxsso.mans1 P29 (18, 
JSB G*ERLSALLOCEMB ;GET AN ERROR LOGGING BUFFER 
BLBC ~=—_- RO, 208 ;BRANCH IF DIDN'T GET IT 
PUSHL R SSAVE ADDRESS OF ERROR Log BUFFER 
MOVW OR EMBs MC_ENTRY(R2) set ENTRY TYPE TO FAULT TYPE 
MOVC3 R4,(R5),EMBSB_MC_SUMCOD(R2) ;IN ONE SWELL FOOP..... 
MOVL (SP)+,R2 ;GET POINTER TO BUFFER START IN R2 
JSB G*ERLSRELEASEMB ; INDICATE BUFFER READY TO LOG 
RSB sEXIT WITH HARDWARE LOG STILL ON STACK 


-DSABL LSB 


ma 
> 
oz 
mn 
3 


OOOCCOCOCOCOCCOCOOOCOCOOOOCOOOCOoO 
AWAINAWN AI NAWAIAANAIWIN NANNING 


WWII 


INI AWININIAIAIIROPOPOPORNONUNUPNY) ee 


CoS ONMIMWOMWOOCC 
eS rMNOon TANT 
Wwe OOWocVTIcerW—Tco 
SOCCCooooooooooooooooooooo 
WWWAAWIN ANNA AAAI AIA WII WWW 
SIND DAO AO TT B® AIAN 
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o> 
FROM ONN SF OP HSM ADOOWMOOOMOOND NUN 1D OOO NNN NNN NNN 


0.0000 69 G9 09.09 Cd OD OD GD GD Gd Cd OD 09 9 OS OD OD CD Cd OD CD Cd CD CD CD CD CD C9 GD CD CD CD Cd CD CD 0D C9 C9 C9 CD 0D 0D. 0D CD. CD CD00 
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HINE oes 


SYSLOA.SRC Sache ck 780. MAR; 1 (15) 
a -SBTTL SBI ERROR INTERRUPTS 
; Handle SBI Faults and Asynchronous Write Timeouts on the SBI. 


; SBI Fault: 
Log the error; try to resume normal execution. 


Asynchronous —— Timeouts: 
Log the 


rror 

Se ups a fake” machine check Log on the stack. This is so we 

can share the exception exit pat 

take if the current process is executi ng in USER or SUPER mode. 
f the current process is in EXEC or KERNEL mode, bugcheck. 


sALIGN LONG :THIS IS VECTORED TO 
GBLDEF INT5SC ;SBI FAULT VECTOR 
GBLDEF LOGSBF 

SETIPL #*X1F : DISABLE aot INTERRUPTS 


PUSHR +MeRO, R1,R2,R3,R4,R5,R6,R7> | SAVE SOME WORK REGS 
MOVZBL #EMBSK “ERROR LOG TWP 
PRCHKSA _MCKIMCHKSM_LOG,R2 ;MASK FOR PRTCT 


MOVL EST 
BSBB  ~—s LOGSBI sUSE SAM E af one ahs ASYNC WRITE FAILURE 
POPR #*M<RO,R1,R2,R3,R4,R5, R6, R?> ESTORE RO-R7 
REI RY TO atte 
.ALIGN LONG ;THIS IS VECTORED TO 

GBLDEF INT60 SASYNCHRONOUS WRITE TIMEOUT 

‘GBLDEF LOGAWE 
SETIPL #*X1F ;DISABLE ALL INTERRUPTS 
PUSHR FneRO, RI. R2,R3,R4,R5, R6, R?> :SAVE SOME WORK REGS 
MOVZBL #EMBSK ROR LOG TYP 
MOVL PRCHIKSAL _LOG!MCHKSM LNCK!MEHKSM NEX® Ro SPRICTEST MASK 
BSBB  —s_ LOGSBI USE SAME CODE A AS SBI FAULT ERROR 
POPR #*M<RO,R1,R2,R3.R4,R5,R6,R7> ——-: RESTO R 
SUBL  #40,SP SALLOCATE FAKE RE ACHINE CHECK FRAME 
PUSHL # F ERAME 
PUSHL #MCHKSH MCK!MCHKSM_ LOG! MCHKSR _NEXM 
PUSHAL MCL PC+ K"AND PC,PSL FOR PRICTEST 
PUSHR PshzRo. R1_R2.R3.R4,R5,AP> : SAVE REGISTERS FOR COMMON CODE 
ADDL3 #<9%4>/SP-AP -POINT AP TO FAKE MACHINE CHECK FRAME 
BITB #°B10160060, W*GL LCSBITASS “WAS WRITE IN USER OR SUPERVISOR 

MODE A D NOT UPDATING A PAGE TABLE 

BNEQ 108 TIF NO MUST BUGCHECK 

a BRW REFLECTCHK ‘BRANCH’ IF OK TO CONTINUE 
POPR #*M<RO,R1,R2, RS. Rs RS, AP> 
JSB G*EXESMCHK_BUGC : RECOVERY BLOCK IN EFFECT? 
BUG_CHECK ASYNCWRTER, PATAL ‘WRITE ERROR IN KERNAL OR EXEC MODE 


WIR DOO NAME WN OOO NAM EWN OD OOONAUE WN O OONAOULS WN “OOOO w 


:OR WHILE UPDATING PAGE TABLE 
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y04~000 SBI] ERROR INTERRUPTS -SEP-1984 4 82: 13:38 SYSLOA.SRCJ ACH Mee oS. MAR; 1 . (2) 
7A rt: p++ 
i. $ ; LOGSBI -- Subroutine to log SBI errors. 
7A 71 : Implicit Inputs: 
7A ie P 6 Bs (so et ee ee ee oe (es me ee ee en ee me 
7A 73: : return address — ; 2(SP) 
7A 1 ane 
7A 75; ' saved. } 
7A 1 : } RO = R7 ' 
7A 7 5 i (ds(‘ié RH PCC CSOs OSCSCCeCSCeSeSCee a 
Q37A 78 ; i interrupt PC 
0 7A 879 $s Hemweeweneeceeseccessces + 
7A 80 ; : interrupt PSL H 
037A 881 5 baw e ew eeewceceensccccce + 
037A Ho) ; 
tts 883 ; Create an SBI error tog buffer that contains: 
37A = 885 5x The contents of the cont tourer ie register of every 
QO37A 86 ; SBI adapter on the bus or 0 (16 Longwords). 
037A 91 ; A copy of the SBI silo (16 Longwords). 
bach + 3 SBI processor registers SBITA, SBIER, SBIMT, SBISC, and SBIFS. 
037A 894 (oGsel: 3;LOG SBI ERROR 
00000000 ' GF 16 O37A 536 JSB G*EXESMCHK_TEST : ARE WE TO LOG THIS ERROR? 
06 50 =E8 Bane 89 BLBS R RECOVERY BLOCK IGNORES IT 
00000000 ° GF D6 b358 344 5$ INCL G*EXESGL _MCHKERRS CREEP COUNT OF MACHINE CHECKS 
7E 24 AE 7D 0389 901 MOVaQ <924>(SP) ,-(SP) ;MAKE A SECOND COPY OF PC,PSL 
57  00000000'GF DO 038D o36 MOVL G*EXESGL _CONFREGL, R7 ;ARRAY OF NEXUS DEVICE TYPE CODES 
55 00000000‘ GF DO 0394 90 MOVL CARMGSGL SBICONF, R5 S ARRAY OF ADAPTER VA'S 
50 OF dO oye 904 MOVL #15,R0 ; INDEX OF yw prea ake ITEM ON SBI 
E D4 O39E 905 10S: CLRL -(SP) [ASSUME NO ADAPTOR HERE 
51 6540 D 03A0 906 MOVL CRE) EROI.RI [GET VA OF CONTROLLER/ADAPTER 
08 1 O3A4 907 BGEQ 20$ :GEQ IMPLIES NO VALID SYSTEM 
6740 OD B3A8 908 TSTL (R7) CROJ TEST ADAPTER La tONCY sUORKS FOR SBI) 
Ss 4 909 BEQL 208 F EQL pr ADAPTOR HERE 
6E gt dO 3 AB 919 MOVL (R1), (SP) STORE sty ts TOR CSRO ON STACK 
ED 50 F4 O3AE 920 208:  SOBGEQ RO,10$ ;LOOP THRU ALL POSSIBLE 16 
50 OF dO SoH 4 1 MOVL #15,R0 :SET UB COUNT OF NUMBER OF TIMES TO 
7E 31 dB o3Bt 9 ¢ 30$: MFPR #PR780$_SBIS,-(SP) ;SAVE INFORMATION FOR ERROR LOGGER 
FA BY FG O30, 924 SOBGEQ sLOOP THRU ALL 16 
7 5 oD os 925 FPR #PR780$ SBITA,-(SP) ;SAVE SBI TIMEOUT REGISTER 
0000° CF 6E 1) BD 926 MCOML (SP) ,W*GL ;SAVE COMPLEMENT SBITA FOR LATER CHECK 
? 4 0B ce 927 FPR #PR760S_ SBIER,~ (SP) [SAVE SBI ERROR REGIST 
7E 3 6«obB C 928 MFPR #PR780$_SBIMT,-(SP) sSAVE SBI ire tomekh REGISTER 
7E ‘ 0B CB «929 MFPR #PR780$_SBISC,- ~$28} Soave SBI SILO COMPARATOR 
43 B cB s«950 MFPR #PR780$"S SBIFS.<(5 *SAVE SBI FAULT/STATUS REGISTER 
7E OO9C 8F C ; 4 1 MOVZWL #<16%4>%<1 elSechea>, ~(sb} ;SAVE NUMBER OF BYTES OF ENTRY 
51 7 cE D D 9 4 MOVAL <<1624>4<1624>+<624>>(SP),R1 ; ADDRESS OF PC,PSL FOR PRICTEST 
4 6€ OD DB «934, MOVL SP) ,R4 :# OF BY L 
55° 04 AE 9 DB O95 MOVAB 4(SP5,R5 TADDRESS OF LOG ENTRY 
FFO 3 DF 9 § BSBW LOGIT ;CALL ERROR 
5E 8E f Ee 9 ADDL (SP)+,SP > CLEAN “STACK. OF LOG AND FAKE PC,PSL 
é? 3 3 RSB RETURN 


C11 
pREPTION waouen'FOR TY TGSE-TREE SOB URNS SRSSRADEE HBS aan 0%" Gh] (NB 
~SBTTL MEMORY TIMER SCAN 


ECCSREENABLE:: ; Define timer scan entry point. 


DECW W*GW_WATCH ; Count seconds down. 
BGTR REENABLE_INTS ; Br if time hasn't elapsed yet. 


MCHECK780 = MAC HE 
vOu=000 MEMOR R 


0022'CF if 
19 


CK 

sc 

i 

4 

d 

; 

26 > Scan all memory controllers for unreported errors. This will yjet¢ a 
53 ; representative sample of memory errors in the error log, even if CRD 
2 : interrupts are disabled. 
58 
59 

60 

3 

63 

64 
5 


MOVW hog, Hh ghee ATOR Reset time interval. 


re PP PP ANAANANN NNT DONG 


HINE 
Y TI 
E 
E 
E 
E 
E 
EA 
EC 
EC 
EC 
EC 
EC 
0022'CF a BO ES ; 
A 6B F PUSHR #*M<Ri, ; Save working registers. 
7 DC OSF MOVPSL <=(SP) ; Set up interrupt PSL. 
0 10 O3F BSBB i; Fake interrupt PC on stack. 
51 6€E 43 F 10$ MOVAL (SP),R1 : Point to exception PC,PSL. 
| ae B FA MOVL #EMBSK_SE,R3 ; Log soft memory errors. 
006 0 O3FD BSBW LOG_ERROR_MEM ; Scan all memory controllers, and 
ret 3; log any that report errors. 
5E 08 CO rt ADDL #8,SP : Pop PC,PSL pair from stack. 
OA BA bebe oe POPR #*M<R1,R3> ; Restore registers. 
405 967 REENABLE_INTS 
0020'CF B87 0405 968 BECW wW*GW_REENAB ; Count seconds down. 
B 14 0409 969 BGTR 10$ ; Branch if reenable time not elapsed. 
0020'CF 0384 8F B80 be 8 970 MOVW #REENABTIME ,W*GW_REENAB ; Reset the time interval. 
F BB 041 971 PUSHR #*M<RO,R1,RO,R3.R4,R5> 3 Save working registers. 
O010'cF 10 00 00 8F 00 2c 0414 97¢ MOVCS #0,#0,40,416,W*°AB_MEMERR; Reset 16 bytes of error count to 0. 
00000000'GF 00° E1 041D 97 BBC S*#EXESV_CRDENABL, - ; Branch if SYSGEN parameter specifies 
OF 0424 974 G*EXESGL_FLAGS ,.5$ ; no CRD interrupts. 
55 soa 3's DO 0425 975 G*MMGSGL_SBICONF ,R5 ; Get addr of SBICONF for action routines. 
53 0000'CF oF 042C 976 MOVAL W*ENAB_ROUTINES,R3 ; Array of action routine vectors. 
008C 8 , Orr LOCATE_MEM ; Locate mem and call action routines 
434 978 3; to re-enable CRD interrupts. 
3F = sa et 979 5$: POPR #*M<RO,R1,R2,R3,R4,R5> 3; Restore registers. 
05 0436 980 10$: 


nsesane 


OA 


51 08 ag 
53.0 
0018 

OA 


OA 


0024'CF 
1 AE 


08 
5306 
0003 
OA 
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= MACHINE CHECK EXCEPTION HANDLER FOR 11 16=SEP=1 


Memory Error Interrupts 


d j 
4 . 
23> ORS 
437 ; 
4 3 5 GBLDEF 
4 : GBLDEF 
BB 04 0 
43A 991 
Re oe 
: 444 387 
BA 0447 999 
02 0449 36 
444 99 
44A 998 
been 1000 
044A 1001 
044C 1 0¢ GBLDEF 
044€ 1003 GBLDEF 
O4ac 1004 
BB 044C 1005 
044E 1006 
D6 0451 100 
DE 0455 1008 
0 0459 1009 
0 045C 1010 
BA O4aF 1011 
02 0461 1012 


: CRD (Soft, or 


ge so 


LOGSBA 

PUSHR #*M<R1,R3> 
SETIPL #* 

MOVAL 8(SP),R1 
MOVL #EMBSK SA, 
BSBW LOG_ERROR 
4 #*MZR1, RSS 


“SEP=1 


R3 
MEM 


Corrected) memory error 


Ot Lee LONG 

INT54 

LOGCRD 

PUSHR #*M<R1,R3> 

SETIPL #* 

INCL W*GL_CROCNT 

MOVAL 8(SPY,R1 

MOVL #EMBSK _SE,R3 

BSBW LOG_ERROR_MEM 
#*MZR1, R35 


9B 90:10:89 USYSUOA. SREIRCHECK®BO.MAR: 1 


-SBTTL Memory Error Interrupts 


Bete Se Ge Ge Se 


ESINTS8:: or MPSSINTS5SS:: 

ESLOGSBA:: or MPS$LOGSBA:: 
ve 
sa 


some registers. 
ble all interrupts. 
t pointer to interrupt PC,PSL. 
et SBI Alert error log type. 
Log memory controller registers. 
Restore registers. 


interrupts are vectored here. 


EXESINTS4:: or MPSSINTS4:: 
EXESLOGCRD:: or MPSS$LOGCRD:: 


Save some registers. 

Disable all interrupts. 

Keep count of these errors. 

Set pointer to interrupt PC,PSL. 
Set soft memory error type. 

Log memory controller registers. 
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VO0~000 LOGMEM Master hourine mets yi 80:4 38 YEYSLOR. SRETACMECK?S0.MAR: 1 a (78) vO4 
rt 1 a: -SBTTL LOGMEM Master Routine 
4 ; 
4 ; FUNCTIONAL DESCRIPTION: 
4 : T ‘s routine is called to build an errertay cgnteining the device 
46 3 registers of the memory controllers on an 11/780 system. If called 
46 3 at the LOG_ERROR_MEM entry point, it will scan the memory controller 
46 3 status registers, and gate og those controllers which report errors. 
46 3 If called at the LOG_ALL_MEM entry point, it will unconditionally log 
re : all memory controllers on the system. 
46 : INPUTS: 
46 3 Ri - posmeer to exception PC,PSL 
rf : R3 - Error log type code (e.g. EMBSK_type) 
46 : > OUTPUTS: 

| 46 ; Format of error log: 

46 3 # of memory controllers logged 
46 : memory type-specific log # 
re ; memory type-specific log #2 
46 : ; 
46 3 PC of instruction at fault time 
rh ; PSL at fault time 
? : ALL registers are preserved. 
6 t<- 
6 LOG_ERROR_MEM: : Log controllers with errors. 

1FFF 8F 8B 6 POSHR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,AP> 
53 sae oF 6 


: 
2 
: 
: 


MOVAL W“LOGERR_ROUTINES ,R3 3 Array of action routine vectors. 
BRB LOGMEM 


LOG_ALL_MEM: 
PUSHR 


3 Join common code. 


: Yncond st tonal ty Log all controllers. 
#*M<RO,R1,R2,R3,R4,R5,R6,R7,RB,RI ~AP 


FFF 8F BB R10,R1 
53 QOOOO'CF ODE MOVAL W*LOGALL_ROUT INES ,R3 : Array of action routine vectors. 
LOGMEM: ; Log memory controller registers. 
= te CLRQ R5 ; Zero error log byte count and number 
; of controllers logged. 
57 Q0000000'GF oD MOVL G*MMGS$GL_SBICONF ,R7 ; For use by action routines. 

. C @ MOVL #SS$_NORMAL , AP ; Assume no fatal memory errors. 
: Locate all memory controllers on the SBI. When a memory controller is 
3; found, call the appropriate action routine to create that controller's 
3; portion of the common error log buffer on the stack. 

0038 30 : BSBW = LOCATE_MEM 


The error log buffer has been built on the stack; SP points to the beginning. 
Add the number of memory controllers logged, then log the errors. 
Current register usage: 
R - Number of bytes in the error log. 
R6 - Number of memory gon rollers logged. 
Points to the beginning of the error log buffer. 
AP - LBS if no fatal memory errors were discovered, else LBC. 


PRR RRR RRR RRR PRR RR RPP R PPR PRES 
w 

VOM 

' 


90909090000 09690690009 09 0900 SI INI SI SII OO 


PAA ADIUIVIVIPIPIPIPIPIND TM WOOAAA OO a 


F 11 
MCHECK780 = MACHINE CHECK EXCEPTION HANDLER FOR 11 16-SEP-1984 00:43:5 AX/VMS Macro V04- Page 24 
vO0s000 LOGMEM Master Routine 873 b=] 98¢ 0:10:38 YEYSLOA. SREIMCHECK S90 .MAR: 1 . (39) 


4 1071 ; 
3! 6€45 9 4 : 1 re MOVAB ort 89) R1 ; Get address of saved RO gn stack. 
é ef Al 0D 489 107 MOVL 12(R1) R$ ; Restore input value of R35. 
1 04 A1 DO 0480 107% MOVL  4(R1),R1 ; Restore input value of R1. 
6 DD 04 1075 PUSH R6 ; Add # of controllers to log buffer. 
a 46 C 493 1 6 ADDL #<1#4>,R5,-(SP) ; Total # bytes in error log buffer. 
3 Dd 497 107 TSTL R5 ; Were any memory registers logged? 
1 1 499 «1 4 BEQL 10$ ; No. Skip call to error logger. 
00000000 ' GF de 498 107 INCL G*EXESGL_MEMERRS ; Keep count of memory errors 
5 6— 0D 4A1 1080 OVL (SP) ,R4 3; Use # bytes as input to LOGIT. 
55 04 AE DE 04A4 1081 MOVAL 4(SPS,R5 ; Address of error log buffer. 
; Re 4A8 1 § CLRL R2 3; Always log memory errors. 
FESA 0 Q46AA 1 BSBW LOGIT ; Log the error. 
5E . ¢€ 4AD 1084 10$ ADOL (SP)+,SP ; Remove error log buffer from stack. 
08 5C £8 0480 1085 BLBS  AP,20$ : Br if fatal error not signalled. 
FFF 8F BA 0483 1 POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,AP> 
rH 19 20$ BUG_CHECK ASYNCWRTER, FATAL : Unrecoverable memory controller error. 
FFF 8F BA 04B8B 109 POPR #*M<RO,R1,R2,R3,R4,R5,R6,R7,R8,R9,R10,R11,AP> 
05 O4BF 1094 RSB 
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M Dispatching Routine Beep =19 & a: 3 SYSLOA. SREIRCHECK 780. MAR; 1 on 33) 


~SBTTL LOCATE_MEM Dispatching Routine 
Routine to locate memory controllers on 11/780 SBI. 


FUNCTIONAL DESCRIPTION: 
his routine scans an ervey of adapter type goaes that tell which 
adapters are attached to the SBI. When it finds a memory controller 
edeeter, it dispatches to an action routine for that memory controller 
ype. 


INPUTS: 
R3 - address of action routine table; 1 action routine/memory controller 
Current format of action routine tables (the tables are created by the 
master mac 


rei” 


oO 
>> 
“40 
mx 
_ 


| an | 
— 


ro): 

: self-relative offset to MS780C action routine 
4(R3): self-relative offset to MA780 action routine 
8(R3): self-relative offset to MS780E action routine 

On atry to memory action routine: 
RO,R1 - 


Local registers. not preserved across calls to action routines 

TR# of this ate controller 

fe not available to be used by action routines 

R4 address of CONFREGL ocrey (If the 780 ever gets a BI, code 
must change, because TSTL assumes no high-order bits set.) 

R5S-AP = available; contents are preserved across calls to multiple 

action routines (i.e. can be used for global storage) 


Tere e Tee Tere rere rere rere rere rere rerererererererererererere rere 
see 


WINN AIA AI IPO ROPOPONO NUNN 2 2  BOQODO OOOO 00005050 


NOAA A$ OOO NAW EWN SO ONAN EWN 3 O OO NOAM EWI OOD NOU WHO OOO 


PRRRRR RRR RRR RRR PRR RRR RRR RRR RPP RRR RRR PEPPER PE EE 
ak nk at nk nk ak ak ak at tt at tt ot tt st 4 OOOO 


ia aa a a a a at a at = = = 2 = = = = = 1 8 8 8 


SPSPRERERRERERRRERERERRRERR RRR RRR ER ERE RRR ZZ ZZ 222. 


C Note: an action routine may deposit a -1 in R2 to cause LOCATE_MEM 
C to prematurely exit the memory scan loop (and not call any other 
: memory action routines). 
C OUTPUTS: 
: RO-R4 destroyed. (Other registers may be destroyed by action routines.) 
C 
C LOCATE_MEM: 
54 00000000'GF 00 C MOVL G*EXESGL_CONFREGL,R4 ; Get address of CONFREGL. 
52 Q0000000'GF 01 C : SUBL3 #1,G*EXESGL_NUMNEXUS,R2 ; Get index into nexus arrays. 
C ; Loop through all nexuses. If a memory controller is found at any of the 
: ; nexus slots, then call the action routine associated with that memory. 
51 6442 00 C 10S: MOVL (R4)CR27,R1 ; Get nexus device type from CONFREGL. 
14 D BEQL os 3 wet a memory; go to next nexus. 
OOOO'cF 12 = §1 A D 4 Locc R1,@MEMTYPCNT,W°MEMTYP ; Find type in memory type array. 
D 4 ; R1 <= addr of type code (if found). 
oc 13 D 4 EQL 208 ; Not a penory; go to next nexus. 
51 12. Al 9A D 4 MOVZBL MEMTYPCNT(R1),R1 3; Use offset to get general aqnory type. 
51 6341 ODE E 4 MOVAL (R3)CR1),R1 ; Get self-relative address of action 
00 gis] 16 04E 4 JSB ack) tri ; routine, and call it. 
E352 F4& OQ4E 46 208 SOBGEQ R2,10 ; Loop through all nexuses. 
05 O04E 4 RSB ; Return. 
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-SBTTL ENAB Action Routines 


Jostens DESCRIPTION: 
e 


action routines re-enable CRD interrupts for each 11/780 memory 


controller. Memory types currently supported: 


ns? C (local memory - 4k and Les chips) 
ase E bee oe ea = 64k ch 


(multiport memory) 


- TR# of this mem 
- address of EXESGL. _CONFREGL array 
- address of MMGSGL_SBICONF array 


o, R1 destroyed; all other registers preserved. 


et = 2 = = = = So = ss Ss —s 8 SS 1 a ss 
mai iia a ad ed ed od od 8 od od ed 8 a 
WOOO OO 0009 0909 09 09 09 09 SIND PPA AAA AAA MATT 
WA FW OD NOUN $0 O NOUR = OONAU SW" OWOONOuns 
PTV « Se Se Se Oe Ge Se Se Oe Ge Se Se Se Se Se Se Se Sete 
: + 


QPEPVPVPVPUPU PUSS BB Be Be BS BB BB PPP PPP PPP EEE EES 


Pee wee we eee lolelefelolelelelelolelololo) 


(R5)C Get address of controller registers. 
seaR tse see RE IMRCSH _HERIAF>,8(R1) ; Enable interrupts 
3 bag ot error flags. 
3; That's it. 


(R5)CR2I Get address of controller registers. 
#<MRCSM_ EC SRF IMRCSM. HERIAF>, gcR1) ; Enable interrupts 
clear error flags in 1st contr. 
#<MRCSM_ELSRF !MRCSM_ HERIAF>, ToiRt) ; Enable interrupts 
; and clear: error flags in 2nd contr. 
; That's 


FRSTERSS Ra ; Get address of controller registers. 
Tin} 6*10$, 3; Protect ageines non-existent memory 
<MCHKSM LOG! MCHKSM NEXM> ; machine c hecks. 
FCRRCSR _ELSRF !MRCSM— “HERIMES, 16(R1) ; ; Enable interrupts 
: and clear error flags. 


SPRICTEND 10$ 3; End of protected code. 
RSB That's it. 
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yO06600 Loon Ac olen Routines §-8 sat 80:43:38 SYSLOA.SRC ACH Meek so0. MAR; 1 ae (3) 
-SBTTL LOGMEM Action Routines 
a. DESCRIPTION: 
One action routine tv, ener? controller type follows. These 
cove Saye s create an 11/780 memory error tog. entry. Currently, the 
following memory controllers are supporte 
ns? OC (local memory - 4K and by chips) 
Pave floral memory - OAK ¢ hips 
may (multiport memory) 
fac? action routine egnee routes o the sennee error Log buffer being 
lt on the stack. Because different routines are being used to build 


a common error log buffer on Hd stack, the contents of the stack is 
significant at all times. 


INPUTS: 
R2 - nexus index for this memory (TR #) 
R35 = not available for use by action routine 
R4 = address of SBI configuration array (CONFREGL) 
R5 - current errorlog byte count 
. - current number of controllers log 


address of array of SBI virtual «+l (SBICONF ) 
RB-R1A - scratch 
AP = memory controller status: LBC = fatal controller error discovered 


IMPLICIT INPUTS: 
(SP): H caller’ s return address H 


gmonae See were eee EE SEE RE OH ORB He TRH SS + 


return to caller’ s caller H 


previous error log 


eocces $ oo 


OUTPUTS 
Rg-R4 preserved 
RS and R6 updated 


IMPLICIT OUTPUTS: 
(SP): 


error log entry for this controller 
(null if no error for this memory) 


previous. error log 


eoeeces > ones > -e 
wrecce > coee $ -- > 


PUPVDV PU PVD PV SVP IU LUPV PUL IVIUSVPVIUSUSVIVSUSVSULVSVSUSUSVSUSVUSVSUSUSUSUSVUSVSUSVSUSUSUS USSF USS IOS 
DODODODOOOOOODOOODOOODODOODOODODOODOODOODOOODOOODODOOOOOODOOOOONOOO 
a a a hs nd et tk at a wt ss 4 8 


AR ERE EEE EF EWAN AIA AAAI PONINININININII0N 2 2 2 SS BQO OOOO 


Se Se Ge Ge Se Ge Ge Se Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Se Se Ge Ge Ge Ge Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se 
+ 


=O ODO NE WIN 9 OO NOUN EWN 9 OOD NAME WIN CO OD NOAOU EAN" O OONOUE 
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-SBTTL LOG_MS780C 
LOG_MS780C = Build error log for MS780C memory controller 


The portion of the error log built for the MS780C memory controller 
has the following format: 


' adapter TR# } 


$erwoneoeeer nr omereoeeo en eeenece eocea $ 
H memory register A H 
H memory register B ' 


H memory register C H 


Register A contains the type code in the low-order byte. For MS780C 
memories, this type code is in the range of 8 - 11 (hex). 


LOG_MS780C: 
: Determine whether to log this controller. 
58 6742 00 MOVL (R7)CR21,R8 ; Get VA of controller registers. 
5A 08 AB 00 MOVL 8(R8),R1 ; Read memory controller register C. 
01 5A 1C 3 BBS #MRCSV_ELSRF,R10,LOGC ; Branch if error log requested. 
5 RSB :; Else return. 
: Build error log on stack. 
3; This is the entry point used when unconditionally logging all memories. 
occ: 
03 BA POPR #*M<RO,R1> ; Get return addr in RO, caller's 
3; return in Ri, 
DSBINT DST=R9 ; Raise IPL while reading registers. 
5A 0D PUSHL R10 ; Save memory register C in log. 
04 A DD PUSHL 4(R8) ; Save memory register B in log. 
PUSHL (R8) 3; Save penery register A_in log. 
ENBINT SRC=R9 ; Drop back to previous IPL. 
52 oD PUSHL R2 :; Save TR# in log. 


Check for CRD error. If the number of recent CRD errors > CRDINTMAX, then 
disable CRD interrupts. If the number of recent CRD errors > CRDWATCHMAX, 
then stop logging CRD errors. 


BBC oy ELSRE .8 10.208 : Branch if no error log requested. 


DOVE DS DP PP FY OWVIwMOM WDA AAGAOAAUI— SF OOOOOOoOoonovowowowowvownowvovono 


= § AtQOODOGDOOOO 0000 OOO OO O09 09 09 09 09 09 SII NNN NNN NPA AAA A AAA AMI 
PR 2 OOD NA NE 2 9 OD NAN EWN O OD NA UWI OOD NIUE WIP 9 OOO NIA NEW O OOD NOAUI EW 
. 


ee a a ad a a ed a 8 a A a a A ns a et as a a Ss SS at ss OS 5 tt Ss 


Ha eee ee naa aad aa al ahah al ah ah ah ah ah ah ab dh dh dh ah eh ah dh eh 


PRADA DVT BBB BEE EEF EMMI ror 


oOo. -—-o— m—o o 
COOOOOCOCOCOCOCOCOCOCOCOCOCOCOOOO OOOO OOSOOOOOCOOOOoOOoOoOoOO 


7% SA CY 
bot: cr4 INCB As EDERAL $4 ; Count memory errors for this contr. 
03 10°CF4 CMPB W*AB_MEMERRLR MCRD INTMAX : Too many CRD interrupts? 
BLEQ 3; No, skip CRD interrupt disable. 
00 SA iiléE : 108 BBSS #MRCSV_INHBCRD,R10,10$ ; Set bit to inhibit CRD interrupts. 
06 OO10'CFS F ’ CMPB W*AB_MEMERRCR2) ,ACRDWATCHMAX :; Too many CRD error logs? 
; BLEQ ; No, go log this one. 
5E ADDL2 #<4*4>,SP : POP apnery CSRs from stack. 
0 "3 208 BRB 30$ Skip logging CRD for this controller. 
55 10 C f ADDL2 #<4*#4>,R5 ; Add # of bytes in this log to total. 


nsssage 


K 11 
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6 06 $f ] i 308: INCL R6 ; Count number of controllers logged. 
08 AB 2 dO 71 «1 13 ; MOVL R10,8(R8) ; Clear errors from register C. 
1 op 75 (1 13 PUSHL Ril 3; Restore caller's caller to stack. 
1 577 131 JMP (RO) 3; Return to caller. 
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yoe-000 LOG_MS é OTS OA. RETACMECKSBO.MAR: 1 o% (3ey 


§ -SBTTL LOG_MS780E 
++ 


; LOG_MS780E = Build error log for MS780E memory controller 

: The portion of the error log built for the MS780E memory controller 
; has the following format: a 

: H adapter TR# ' 

: peewee ococce tocewcoococooencoee = + 

: 4 memory register A : 

: H memory register B Hy 

: ! memory register C ! 

: memory register D 

5 teoococescesosoesesesosssssssssses= + 

: Register A contains the type code in the low-order byte. For MS780E 
; memories, this type code is in the range of 68 - 6C (hex). 


LOG_MS780E: 
; Determine whether to log any errors for this controller. 


MOVL (R7)CR2],R8 : Get VA of controller registers. 

BITL #MRCSM_SUMMARY, (R8) ; Test error summary bit in Register A. 
BNEQ LOGE ; Branch if there are any errors. 

RSB 3; Else return. 

& 


: This is the entry point used when unconditionally logging all memories. 
LOGE: 


58 = 6742 
68 00100000 4 


o-"090 
VINIWOS 


POPR #*M<RO,R1> Get return address in RO, caller's 
return in ‘ 
Initialize loop counter. 


MOVL #3,R9 
DSBINT DST=R10 Raise IPL while reading registers. 


MAAAXAAO UAE BS BS BBE BBWAA NIN AAWIGIPOPONINIPOPONOND 


DSODNAUE WN $$ SO OOAN $$ OONAUE WN 0 OD NAME WW 0 OONOAUS 
. bl 


6849 DD 10$: PUSHL SF Se Push registers in reverse order. 
FA 59 F4 SOBGEQ R9,10$ Push 4 registers for error log. 
52 DD PUSHL Save TR# in error log. 


ENBINT SRC=R10 ; Drop back to previous IPL. 


3; The MS780E memory subsystem consists of 1 SBI Interface module and 2 Memory 
2 sentros ise modules. Each controller can control up to 8 memory array cards. 
; The MS780E subsystem can operate in any one of 5 interleave modes: when both 
: Fontes Cards are present, the subsystem will usually operate in internally 
3; interleaved mode; if only one Control Card is present, the sub-system may 

3: operate in non-interleaved mode or may be externally interleaved with 

3 another memory subsystem on a different SBI slot. 


; MS780E controller registers A and B reside on the SBI Interface module and 
; are olyays accessible and valid when the subsystem is present. Register C 
; gives information about the lower controller and array cards while Register 
; D gives information about the upper set. If either controller is not 


SOVCSCS SCS SSF 99S FPOVMO OONVNNVNINGS FS OOOOVOVOVOOVOOVOOVOOOOOOOOOOOOOOOO 
eh a ee ee ee ee ee ee ee ee ee ee ee ee ee a dd 


WDOWOOOOOOOOOOOOOOOWC 


es a ee 


WS OONOUS WN — 


"11 
MCHECK780 = MACHINE CHECK EXCEPTION HANDLER FOR 11 16-SEP-1984 00:43:58 VAX/VMS Macro V04- Page 31 
y00~000 Loe MCP ODE Boer he bas1O 8 eee eae oo mans 2% (3a) 


9D 3; present, its status register (C or D) will be accessible but the contents 
; are UNDEFINED. 
68 04 AE 00 0590 " MOVL 4(SP),(R8) ; Clear error bits set in Register A. 
04 AB O8 AE 00 aA) MOVL 8(SP) ,4(R8) ; Clear error bits set in Register 8. 
sh : Check Register A for interleave mode. 
59 7C¢ O5A ‘ CLRQ Will hol ies of Regi . 
05 06 ne BSED OBA lL hold copies of Register C and D 


Ry 3 
BBS #2,4(SP) ,LOWER 3: If internally interleaved, check both 
3 upper and lower controllers. 
: BBS #1,4(SP) ,UPPER ; Branch if upper controller is enabled. 
: Check Lower controller for fatal parity errors. 
Lower: 
MOVL 12(SP) ,R9 3; Get copy of Register C from stack. 
BBS opted MSEQPTY,R9,- ; Branch if microsequencer parity 
3; error. 
BBS #MRC$Y_IFPTY,R9,- : Branch if SBI Interface write data 
L : = error. 
; BBC #2,4(5P) ,CHK_CRD_LOW ; Branch if not internally interleaved. 
: Check upper controller for fatal parity errors. 


UPPER: 


nn 
> 
= 


MOVL 16(SP),R10 
BBS #MRCSV_MSEQPTY,R10,- 


FATAL FEM 
BBS #MRCSU_IFPTY,R10,- 
FATAL_AEM 


Get copy of Register D from stack. 
Branch if microsequencer parity 


error. 
Branch if SBI interface write data 
3; parity error. 


Determine if this error was a CRD in either controller. 

" BBS #MRCSV_CRDERR,R10,CRD_MS780E ; Branch if CRD error in upper contr. 
) “BBC #MRCSV_CRDERR,R9,LOG_E ; Branch if not a CRD error in lower. 

; This was a CRO error. If the number of recent CRD errors > CRDINTMAX, then 


; disable CRD near ruest for this subsystem. If the number of recent CRD 
; errors > CRDWATCHMAX, then don't log another CRD error. 


04 5A 09 €0 
2459 O09 €1 


SAMOMOOOOOOOOOCCWWWWIOIOOIoIW 


DNL NOOWLNO NNN SS NIG III en > > O 


; NOTE: it is gluays safe to write to both register C and D even if one of the 
; controllers is d 
¢ 


ek a a at a 8 at 4 3 — 3 a a nt a“ a a ts ss 2 


FP WWAAAAWII IARI DINININININIDND 3 9 OP | MOO OODOOOOCOOCOOOOOOO0OOOcoCDCD CD CDCD 


SOOO NOAU EAR) = OOD NAUE WIN $9 OO NAME WIN (OOD NAME WN O OONAOU EW OOONOUS 


COOOSOOOOCOOSOOOOSGCOCOOGOOCOSQOOOCSOOCOOOOOOOOOOOOOOCOOOOOO: 
PUPP TI AIA OA OO UO UO UU 


D 
D 
D 
D 
D 
D 
D 
: sabled. 
D RD_MS780E : 
Bone cEtS 96 D INCB Mone .RERERRER GY ; Count memory errors for this contr. 
03 0010°CF4 91 D CMPB W*AB_MEMERRLR ACRDINTMAX ; Too nny CRD interrupts? 
08 15 OSE BLEQ =-:1118 ; No, skip CRD in errupt disable. 
00 59 ~=«#1€ ES E BBSS #MRCSV_INHBCRD,R9,10$ ; Set bit to inhibit CRD interrupts. 
005A 1€ € : 10s: BBSS #MRCSVIINHBCRD,R10,11$ ; Set bit to inhibit in upper contr. 
06 OO10"CFKE 91 E CMPB W*AB_MEMERRCR2) ,ACRDWATCHMAX ; Too many CRD error logs? 
0 15 F BLEQ LO ; No, go ahead and log this one. 
SE 14 C0 F ADDL2 #<5S#4>,SP ; Pop memory CSRs from stack. 
07. —=—«*11 : RB CLEAR_ERRS_E 3: Skip logging CRDs for this controller. 
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Found a fatal controller error. Report it, try to log the error and return. 


FATAL_MEM: 
CLRL AP 3; Signal fatal memory error. 


; Increment log counts. 


Add # of bytes in this log to total. 
Count number of controllers logged. 


ADDL2 = #<5*4>,R5 
R6 


9 ,8(R8) ; Clear errors from register C. 
MOVL R16,12(R8) ; Clear errors from register D. 
PUSHL R1 3; Restore caller's caller to stack. 
JMP (RO) ; Return to caller. 


z 
eo 
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-SBTTL LOG_MA780 
LOG_MA780 = Build error tog for MA780 memory controller 


The portion of the error log built for the MA780 memory controller 
has the following format: 


H adapter TR# 


$e sence raeavre sone sousca em esa an om we 


| Port Configuration Register 


-oemaanwoenmras Sow ewe mom ee mone moe + 


| Port Interface Control _Reg 


terme meme en caeem emma now et wore momen + 


re Port Controller Status “Reg 


+ 
+ 


Port Invalidation Control Reg ! 


' Configuration Status Reg 0 


The Port Rent our ot en Register contains the type code in the 
low-order byte. For MA780 memories, this type code is in the 
range of 40 - 43 (hex). 


PAR_EXRERAAAAAAAAAAAA AAA AA AAA AA AAA OO 
COOCOCCOCCOCOOCOCOCCOOCOCOSOOOOCOOSOOOOOOoOo & 
POAAANAAAAOOAAAAOAAHAAHAOHOAAQAAAAQAANAN 


OOOO OCCOCSCOOSOOOOCOCOOOOCOCSoO 


LOG_MA780: 


Determine whether to log any errors for this controller. 


ee ee ee ee ee ee ee 
AAAAAMNMA NAAN ES BE EER ERE REEL RRR LPR PPE PPP R PEPE PPP PELL LS 
MOOD OCDOOOOO OO OOOO OO O.0000.09 00 00 00 00 09 09 09 SIMI SIN SNINNINIOAAAAAAAAAAOUIN 


COP UIWNNRI § O OD NAME WN O NAME AN 9 OD NAME WIN 9 OONOAOU EWN OUOONOU SW O0Oo 


58 6742 00 MOVL (R7)CR21,R8 ; Get VA of controller register. 
5A D4 CLRL R10 ; Use R10 as memory error flag; assume 
; there is an orcer condition. 
SPRICTINI B*10$, ; Protect followi ng code from 
#<MCHKSA 0G! MCHKSM _MCK>; all machine checks. 
68 00400000 8F 03 BITL #*x00400000, (R8) ; Check for power-up interrupt. 
8 i¢ BNEQ ; Branch if found. 
04 AB FFOOOO00 BF OD BITL #*XFF000000,4(R8) : Check Port Interface Control Reg. 
1 ig BNEQ ; Branch if found error. 
10 A&B 10000000 8F OD BITL #MRCSM_ELSRF ,16(R8) ; Check Array Error pogreter, 
17 ig BNEQ ; Branch if found err 
18 AS 00000400 BF OD BITL #*X00000400, 24(R8) ; Check Multiple Inter Lock Accepted err. 
4 \¢ BNEQ 5$ ; Branch if found er 
08 AB DOOOCO0O BF D BITL #*x0000C000,8(R8) ; Lastly, check Port "Feate. Status Reg. 
3 «12 BNEQ $ ; Branch if found error. 
5A 1 00 $$ MOVL #1,R10 ; Signal no errors found. 
SPRICTEND 10$ ; End of retected code. 
0350 €9 BLBC RO, 208 3; If MA78 
01 5A €E9 BLBC R10,LOGMA ; If any errors were found, log them. 


has disappeared, just return. 
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8 SYSLOA. SRC JMCHECK 
05 6 : } 38 20S: RSB ; Else return. 
: ! : This is the entry point used when unconditionally logging all memories. 
gan 1 2 Byit¢ error log on —— First set SP to where the top of the buffer 
65A 1524 ; be, and use R9 as a temporary stack pointer while the | Log is being 
65A 1525 ; bu lt. This is so the machine check protection routines can freely use the 
65A 1 § ; Stack above where the error log is being built. 
gh 18% foo 
0802 8F BA thy ! $ " POPR #*°M<R1,R11> 3 oe retyrn sddress in R1, caller's 
3 return in , 
ae. ae. gf 1 ? MOVL SP 3; Use R9 as cenporery stack pointer. 
5E 26 C 661 1532 SUBL #<$24>,SP ; Point SP to where stack top will be. 
0664 1534 eranrer ans “ ; Protect following code from 
Boss 1333 cenC UE a. LOG! MCHKSM -NEXM> snon-existent memory errors. 
06 1 1537 DSBINT pst=Rt ; Raise IPL while logging registers. 
79 if A DO 0677 1538 MOVL (RB) ,=(R9) ; Maintenance Control Register 
79 «18 A DO 0678 1539 MOVE 4(R8) ,=(RI) ; Configuration Status Register 1 
79 #14 A8 DO O67F 1540 MOVL OCR8) ,=(R9) : Configuration Status Register 0 
79 «=©10 AB DO pegs 1541 MOVL 16 (RB) ,-(R9) ; Array Error ws ster 
79 ~=60C AB 687 1542 MOVL 12(R8B) ,-(R9) : Port Invalidation Control Register 
068B 1544 SPRICTINI B*10$,- ; Protect this register access against 
po88 1545 #<MCHKSM 06: AC CHK$M MCK>; all machine checks. 
79 08 AB DO 0697 1547 8(RB) ,=(R9) : Read Port Controller Status Register. 
0698 1549 SPRICTEND 10$ : End of protected code. 
03 50 €8 069C 1550 BLBS RO,15$ ; Branch if no machine check occurred. 
79 «6©6000)—s«éO Deno 1326 158 MOVL #0,-(R9) ; Else put fake copy of register in log. 
79 04 AB DO Q6A2 1554 ; MOVL 4(RB) ,-(R9) ; Port Interface Control Register 
79 68 DO OQ6A6 1555 OVL (RB) ,-(R9) ; Port sent ipuretten Register 
O6A9 1556 ENBINT SRC=R10 ; Restore IPL to previous level. 
79 «652 ~=«O«éD0 Bene 1320 MOVL R2,-(R9) ; Save TR# in error log. 
Bone 1223 : Clear errors from registers. 
68 04 A9 C8 beat 1561 ° BISL 4(R9), (RB) ; Clear errs in Port Config Reg (pwr-up) 
04 AB O08 AD CB re 1306 BISL 8(R9) .4(RB) 3 fontr errors » Port Interface 
; Control Register. 
688 1565 SPRTCT IN] B*20$,- ; Protect thts register access against 
6B8 1566 <MCHKSM LOG!MCHKSM -MCK>; all machine checks. 
08 AS OC AD «(C8 ote 1268 BISL TS tRO) 8TRB : cane errete = Port Controller 
6c 1371 SPRTCTEND 208 : End of protected code. 
14A8 18A9 C8 CA 157 BISL 4(R9) ,20(R8) ; Clear errors in Port Configuration 
6CF 1574 ; Status Register (Mult Interlock Accpt) 
14 A9 DD OQO6CF 1575 PUSHL  20(R9) ; Get copy of Array Error Register 
re 1278 3; on top of stack. 
6D 1378 : Check for CRD error. If the # of recent Ene sernors > CRDINTMAX, then disable 
De 157 ; CRD sneerrupts for this controller. If the # of recent CRD error 
re ! 0; ; CRDWATCHMAX, then don't log another CRD Ke for this controller. 
1E oF 1 4 D2 1 § , BBC ty chtarrs (SP) ,40$ 2 Branch if this wasn't a data error. 
got rat: 6 D6 1 INCB W*AB_M RRER § ; Count date errors for this contr. 
03 10°CF4 91 DB 1584 CMPB W*AB- “RERERR R piaiecen 8 : Too a CRD senereyets! 
04 15 0661 1585 BLEQ 308 ; No, skip CRD interrupt disab 
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00 6— EF €E2 et ! § 308: BBSS #MRCSV_INHBCRD,(SP),30$ ; Set bit to inhibit CRD interrupts. 
SA 01 «0 «~(06E7 1 "MOVE = #1,R10 ; Assume error will be logged. 
06 0010" crag 51 SEA 1 § CMPB 4 =—s- W*AB_MEMERRCR2] , #CRDWATCHMAX i. Too many CRD error logs? 
15 of 1590 BLEQ a98 : No, go ahead and log this one. 
D4 oF ! 4! 408: CLRL R1 t Stonst ‘dont t log this error’. 
10 AB «BE 0 ore : $8 : MOVL (SP)+,16(R8) ; Clear errors from Array Error Reg. 
ers 1238 ; SPRTICTEND 50$ ; End of protected code. 
oF? 1599 : Note: If no machine check occurred, R9 and SP are now identical. We can 
oF 1929 ; resume using SP. 
03 50 £9 O6F9 1983 : BLBC RO,NOLOG_MA ; MA780 eteappecred. nothing to log 
05 5A E8 O6FC 1605 LBS R16, LOG_RA ; Branch to log the error. 
O6FF 1607 NOLOG_MA: 
5E ee CO O6FF 1608 ADDL #<9%4>,SP ; Clean error log off the stack. 
5 11 0702 1609 EXIT_MA : 
0704 1611 
55 4 CO 0704 1616 : 
6 D6 0707 161 INCL ; Increment count of memories logged. 
0709 1614 EXIT_MA: 
5B dD 0709 1615 PUSHL R11 ; Restore caller's caller to stack. 
61 17 O70B 1616 JMP (R1) ; Return to caller. 


And return. 
LOG_MA: 
ADDL + lita ; Add # of bytes in this log to total. 
| 
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E INSTRUCTIONS. 


CK te et HAND 


ERLOCKED INSTRUCTIONS 


N FLOATING POINT 
C/QUAD, EMUL, EDIV 


I 
$s 
Pp 
oo 
sASHP, CVTLP, CALLG, CALLS, XFC, EXPANSION 


DECIMAL INSTRUCTIONS 


LDPCTX, SVPCTX, INSQUE, REMQUE 
, CVTSP 
D 
C 
E 
D 
ZADWC, SBWC 
“BBSSI, BAC 


REI 
bs 
£ 
P 
F 
L 
;PUSHR, POPR 


IF THE INSTRUCTION IS RESUMABLE, 
3CvT 
A 
D 


ww 


I 


T 
“B0011110000111011 
1 
1 
1 
1 
0 
1 
1 
1 
1 
1 
0 
1 
0 


8 

C 

1) 
~ WORD 
WORD 
WORD 
WORD 
~ WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
end 


ESUMABLE: 
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Symbol table 


AB_MEMERR 
ADPSL_LINK 
A UBASCB 


BUGS" RDSNONRES 
CACHEPARITY 


DAMPUTA 
ECCSREENABLE 
EMBSB_MC_SUMCOD 
EMBSK—AW 


EMBSK_BE 
EMBSK _HE 
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MCHK- TEST 
V gC ROENABL 


MEM 
RAL_MEMTYP 
ADT TROUT 
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L 

L 

L 

WL 

Ww WATCH 
BROMCHECK 
NT54 

N 

N 

N 
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C$GL_ADPLIST 
PL$_ASTDEL 


LOGALL “ROUTINES 
LOGAWE 

LOGC 

LOGCRD 

LOGE 
LOGERR_ROUTINES 
LOGGER 


LOGSBI 
LOG_ALL_MEM 
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LOG “ERROR_MEM 


NHBCRD 
MRCSV~ INVMAPPTY 
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MRCSV~SUMMARY 
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Symbol table 984 2 SYSLOA.SRCIMC 
RESUMABLE 700 R 8 
RES R 
SBIERSM_CPTO = 
BIERSM_CRD = 4 
SBIERSM_IBRDS = 
SBIERSM_IBTO = 4 
SBIERSM_ROS = ° 
SBIFSS$V_NEF s 
SCHSGL_CURPCB eeeerere 6X 8 08 
SOMETIME = ‘ 
SS$_NORMAL = 
TBUFPARITY &R 
TRYRESUME 80 R 
UPPER 00005C3 R 

er ae 

: Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
. «ABS . 49494544 ( 0.) 00 ¢ OO.) NOPIC USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 

000000 <( -)») QO1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE’ R&D WRT NOVEC BYTE 
MCHKSDATAO 00001 am Ft ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR EXE’ RD WRT NOVEC 
MCHKSDATA QO0O0000C (= 12.) ( -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
MCHKSDATA 4444 44 ( 12.) 04 ¢ 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC 
MCHKSDATA4 00000 ( 12.) 5 ( 5.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
MCHKSDATA1 0000001 ( 18.) 06 ¢ .} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
MCHKSDATA 4 48 ( 35°? 07 ¢ -) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC QUAD 
MCHKSCODE 000072D ( 1837.) 08 ¢( 8.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC LONG 
eT 
! Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization 3] :00: 8-93 0:00: 7-68 
Command processing 107 :00:00.39 0:00:04.01 
Pass 1 416 : B: 9.91 0:00: 2-28 
Symbol table sort 6 0:00: 1.68 0:00: $0 
Pass 2 28 0:00:02. 3: 3: 1.71 
Symbol table output 3 :00:00.1 :00:00.14 
Psect synopsis output :00: 8 :00:00. 3 
Cross-reference output :00:00. :00:00. 
Assembler run totals 876 :00:14.6 :01:00.36 


ine yorking set Limit was 1800 pages. 

95597 bytes (187 pages) of virtual memory were used to buffer the intermediate ggde. 

There were 70 pages of symbol table space at locates to hold 1210 non-local gnd local symbols. 
is*! source lines were read in Pass 1, produc ing object records in Pass 2. 

42 pages of virtual memory were used to define 56 macros. 
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! Macro Library statistics ! 


¢ eee see en ee cmc e ss ec eum eccean } 


Macro Library name Macros defined 
3 SYS.OBJJLIB.MLB; 1 2 
352280 nr; f ESysiie STARLE .MLB;2 ‘ 
mitt (all Libraries) 


1265 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:MCHECK780/0BJ=0BJ$:MCHECK780 MSRC$:MCHECK780/UPDATE=(ENHS:MCHECK780) +EXECML$/LIB 
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